Option Strict Off
Option Explicit On
Namespace BMLERP
	Friend Class frmINV125
		Inherits System.Windows.Forms.Form

		Private Sub cmdExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdExit.Click
			Me.Close()
		End Sub

		Private Sub frmINV125_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
			Adodc1.ConnectionString = ConnectString
			Adodc1.ConnectionTimeout = 10
			Adodc1.CommandType = ADODB.CommandTypeEnum.adCmdText
			Adodc1.RecordSource = "SELECT ILI.*, IIM.IMITN, IIM.IMITD, IWM.WMDSC" & " FROM ILI LEFT OUTER JOIN IIM ON ILI.ILITN = IIM.IMITN LEFT OUTER JOIN " & " IWM ON ILI.ILWHC = IWM.WMWHC order by ILLOT"
			Adodc1.Refresh()
			Me.VB6_AddADODataBinding()
			Dim myDataCaptions As String() = {"Lot", "Item Code", "Description", "Warehouse"}
			Dim myDataFields As String() = {"ILLOT", "ILITN", "IMITD", "WMDSC"}
			setDataGridView(myDataCaptions, myDataFields, Me.grdLotMaster)
		End Sub
	End Class
End Namespace